.ENABLE SUBSTITUTION
MOU DK1:/OVR
MOU DK3:/OVR
ASN DK3:=AL:/GBL
ASN DK3:=SY:/GBL
SET /UIC=[1,10]:TT0:
SET /UIC=[7,16]:TT2:
.ASKS TIM PLEASE ENTER TIME AND DATE (HR:MN DD-MMM-YY)
TIM 'TIM'
.;ASKN [::132.] N ENTER LINE WIDTH OF THIS TERMINAL
.;SET /BUF=TI:'N.'
.IFT <MAPPED> ACS SY:/BLKS=128.
.;
.; πNOTE - The Baseline INDirect must be replaced by BIGIND with 
.;	a priority of 10. for SYSGEN.
.;
.;  ie	>REM ...AT.
.;	>INS $BIGIND/PRI=10.
.;